Utilities Professional 1-1500

home *** CD-ROM | disk | FTP | other *** search

/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1390.dms / var1390.adf / totris.AMOS / totris.amosSourceCode < prev

Wrap

AMOS Source Code | 1993-05-31 | 66KB | 304 lines

Dim WRD$(5) Dim WAD$(10) Global BX,IM,X,WRD$(),WAD$(),BL$,Z,LFT,RHT,WRONG,RIGHT,ANS$,TL ' GROOVY GRAVY ' ' Procedure GROOVY X=192 If Ntsc Then X=136 Screen Open 0,320,X+64,16,Lowres Curs Off : Flash Off : Cls 0 Get Sprite Palette Volume 20 CAPTION Randomize Timer Make Icon Mask 1 Make Icon Mask 3 Paper 1 For N=1 To 10 Hot Spot N,$10 Next N If WAD$(1)="" Dir$="df0:" For N=1 To 10 Read WAD$(N) Next N End If Data "bus","ball","bricks","bear","car","kite","boot","rocket","book","balloon" Hide Double Buffer Screen Hide Cls 0 WALLS BIN Screen Show BL$=" " End Proc Procedure GRAVY Do SPEED WRONG=0 : RIGHT=0 Repeat IM=Rnd(9)+1 WRITE Timer=0 BX=Rnd(7)+1 BX=(BX*32) While Timer<TL Bob 1,BX,1,IM CHECKY Wait Vbl Wend Sam Play 15,1,8000 For N=1 To X+10 Bob 1,BX,N,IM CHECKY Wait Vbl Next N Bob Off CHECKPO Until WRONG=5 or RIGHT=20 DEAD Loop End Proc Procedure CHECKY K1=Key State(78) K2=Key State(79) If K1 If BX<300 Inc BX End If End If If K2 If BX>10 Dec BX End If End If End Proc Procedure WALLS For M=1 To 4 For N=1 To 5 Paste Icon(N*64)-63,(M*64)-63,2 Next N Next M End Proc Procedure BIN For N=1 To 5 M=(N*64)-63 Paste Icon M,X,1 Next N End Proc Procedure WORD Restore IM$=WAD$(IM) Repeat R=Rnd(9)+1 BX$=WAD$(R) Until BX$<>IM$ WRD$(1)=BX$ For W=2 To 5 Repeat R=Rnd(9)+1 BX$=WAD$(R) Until(BX$<>WRD$(W-1)) and(BX$<>IM$) WRD$(W)=BX$ Next W Z=Rnd(4)+1 WRD$(Z)=IM$ CALCI End Proc Procedure WRITE For N=1 To 5 M=(N*64)-63 Text M+4,X+8,BL$ Next N WORD For N=1 To 5 M=(N*64)-63 Text M+4,X+8,WRD$(N) Sam Play 15,4,3000+(N*1000) Next N End Proc Procedure CALCI LFT=Z*64-63 RHT=LFT+64 End Proc Procedure CHECKPO If BX=>LFT and BX<=RHT Sam Play 15,2,9000 Inc RIGHT If TL>19 TL=TL-20 End If Else Inc WRONG Sam Play 15,3,9000 Paste Icon(WRONG*64)-63,1,3 Wait 10 Sam Play 15,3,6000 If TL<200 TL=TL+20 End If End If End Proc Procedure DEAD Cls 1,20,10 To 290,45 A$=" Another go? " B$=" " C$=A$ Locate 0,2 If RIGHT<WRONG Centre " Try a little harder next time. " Else V$=" Well done. You had"+Str$(RIGHT)+" correct. " End If Centre V$ Locate ,4 For N=1 To 32773 Extension_0_4000 If Extension_0_3006 Menu Base Extension_0_0602 Extension_0_6500 Extension_0_F8A2 Extension_0_0086 Extension_0_00C0 Intcall Extension_0_6110 Extension_0_02DE Illegal_Constant_001Aï¿½ï¿½# Extension_193_A0F8 Extension_0_D03E Extension_0_6800 Extension_0_1C0F Extension_0_3A5C Extension_0_053E Extension_0_0380 Extension_0_0144 Extension_0_0FFC Extension_0_0FEE Illegal_Constant_0038 Extension_0_13BC Extension_0_FFD6 Extension_0_0071 N#*1000) Centre C$ Wait Extension_0_803E Extension_0_C000 Extension_0_E003 Extension_0_5000 Next Extension_0_E806 Extension_0_6C18 Extension_0_1800 Extension_0_6500 Extension_0_3E80 For Extension_0_06E6 Extension_0_07A8 Goto Extension_0_6E34 =>Illegal_Constant_0029$Illegal_Constant_003D If C$= Extension_0_8006 Extension_0_4000 Extension_0_E202 Extension_0_3100 Extension_0_6AC6 Y Hard Extension_0_060C Extension_0_3F02 Extension_0_5C80 Extension_0_FF62 Swap $23A6214 Extension_0_02D6 Illegal_Constant_0019 Sam Play -2147434481 Extension_0_605C Extension_0_903E Extension_0_4800 Extension_0_EC04 Extension_0_565C Extension_0_693E Extension_0_1580 Extension_0_1DC8 Extension_0_FAE0 Extension_0_07C4 Extension_0_014E Extension_0_01BC Extension_0_03CE Extension_0_6E3F ^Illegal_Constant_0038# Centre C$ Wait 3 Next . Clear Key Extension_0_5000 $ Repeat Extension_0_01B8 A Extension_0_FFA5 Repeat$ Until Extension_0_0077 A$="y") or( Extension_0_8006 Extension_0_4000 Extension_0_E202 Extension_0_7100 Extension_0_F7A2 Extension_0_8426 Extension_0_4201 Extension_0_0900 Extension_0_11FC Extension_0_18C0 For Extension_0_0616 Extension_0_0160 Extension_0_028C Extension_0_6EC2 Extension_0_FF83 Illegal_Constant_002D$Illegal_Constant_003D Paste Icon(N*64)-32831 Extension_0_405C Extension_0_603E Extension_0_1000 Extension_0_1801 Del Icon Extension_0_023E Extension_0_0300 Extension_0_0082 Illegal_Constant_0040 Extension_1_00E8 $C0009 Extension_0_005F 4,8000+(ï¿½ Wait Extension_0_73BE Y Menu Extension_0_0423 Freeze Next Extension_0_030E Extension_0_039C Extension_0_01DE Extension_0_6E27 $ If A#="n" Then Show : Auto View On : Dir$= Extension_0_8026 Extension_0_4004 Extension_0_0466 Extension_0_403A Extension_0_8854 Extension_0_48F6 Extension_0_6226 Extension_0_710B Extension_0_7AE1 Extension_0_617A Extension_0_6D56 Extension_0_6662 Extension_0_5CEC Extension_0_6F5C " ï¿½" End Proc$ Procedure CAPTION Cls 1 Locate ,6 Centre "SEND THE SHAPES DOWN THE RIGHT CHUTE." : Print : Print Centre "Use ARROW keys to steer Left & Right." : Print : Print Centre "Get 20 right or 5 wrong to finish." : Print : Print Centre "The thinking time is reduced if right" : Print : Print Centre "or increased if wrong." : Print : Print : Print : Print Centre "You can add your own pictures & words" : Print : Print Centre "click the right button to find out how" : Print : Print Centre "or the left one to start the game." : Print Repeat : MK=Mouse Key : Until Extension_0_8006 Extension_0_4000 Extension_0_2200 Extension_0_5D6B Extension_0_87B6 Extension_0_1C3E Extension_0_0E00 Extension_0_0700 Extension_0_0080 If " moï¿½ï¿½" Pop Proc Else Cls Locate ,2 Centre "ADD YOï¿½Rï¿½OwNPPQCPU\EP 'ï¿½Wï¿½Rï¿½S"# Extension_0_0472 Extension_0_0052 Extension_0_0477 Extension_0_0057 Print Centre "1: Load DPaint or siï¿½iï¿½iï¿½r X 4 : ' #ï¿½!`" Extension_0_01B4 Exp Extension_0_00E8 Centre Illegal_Constant_001A' Drlm this disc load 'BLANK.IFF' ï¿½ @Tdv' Centre Extension_0_1826 Extension_0_FC28 Extension_0_313A Extension_0_A344 Extension_0_32E1 Extension_0_17E0 Extension_0_668F Extension_0_6D42 Extension_0_5C6C Extension_0_6B6A Extension_0_687B Extension_0_3FE7 Extension_0_6F2F Extension_0_644C Extension_0_6563 Extension_0_2071 Extension_0_6E24 Extension_0_746A Extension_0_6521 Extension_0_2021 Extension_0_2023 Amal : Print Centre " ` ï¿½b<akï¿½bexï¿½sbï¿½ï¿½ï¿½ï¿½ï¿½ï¿½Qï¿½ezï¿½$ï¿½aï¿½ ï¿½ K T" Centre Illegal_Constant_0019Illegal_Constant_002A Extension_0_2023 Extension_0_2074 Extension_0_6865 Extension_0_206F Extension_0_7264 Extension_0_6572 Extension_0_2079 Extension_0_EF75 Extension_0_6063 Extension_0_1265 Extension_0_B174 Extension_0_CD64 Extension_0_5474 Extension_0_1265 Extension_0_9E20 Extension_0_07B1 Extension_0_2DED Extension_0_BA51 Extension_0_F579 Extension_0_46B8 Extension_0_7320 Extension_0_7CC8 Extension_0_0C7D Centre Extension_0_0EDF Extension_0_0F3B Extension_0_3440 Extension_0_201E Extension_0_6117 Extension_0_651F Extension_0_6D99 Extension_0_6357 Extension_0_206D Extension_0_6E77 Extension_0_6F20 Extension_0_F468 Extension_0_2973 Extension_0_4064 Extension_0_9973 Extension_0_E320 Extension_0_AD73 Extension_0_8242 Extension_0_1F41 Extension_0_29CB Extension_0_4389 Extension_0_A866 Extension_0_2CA4 Extension_0_0F8E Extension_0_9B5C Centre Extension_0_42C4 Extension_0_E159 Extension_0_8693 Extension_0_7880 Extension_0_00BF Extension_0_0A0C Extension_0_1336 Extension_0_49CB Extension_0_4173 Extension_0_27F2 Extension_0_7736 Extension_0_741B Extension_0_6814 Extension_0_4FB4 Extension_0_2E1D Extension_0_5377 Extension_0_6170 Extension_0_7421 Extension_0_6166 Extension_0_E168 Extension_0_AE20 Extension_0_8021 Extension_0_5055 Extension_0_6C77 Extension_0_FC01 Centre Extension_0_3E27 Extension_0_9D29 Extension_0_7BBB Extension_0_4516 Extension_0_9DC6 Extension_0_55F0 Extension_0_6587 Extension_0_F88C Extension_0_224F Extension_0_169B Extension_0_84A2 Extension_0_D12E Extension_0_FC4B Extension_0_CF45 Extension_0_F77A Extension_0_C4EA Extension_0_B92A Extension_0_DCC1 Extension_0_A2BB Extension_0_CEB8 Extension_0_F76C Extension_0_8AC6 Extension_0_D781 Extension_0_291F Extension_0_1757 Centre Extension_0_8DDC Extension_0_C6DF Extension_0_014A Extension_0_311E Extension_0_66A9 Extension_0_F8A5 Extension_0_3349 Extension_0_8B7E Extension_0_DFF4 Extension_0_2B67 Extension_0_901B Extension_0_CE76 Extension_0_7961 Extension_0_8AA4 Extension_0_FA56 Extension_0_ADC3 Extension_0_52FF Extension_0_6C9C Extension_0_AB48 Extension_0_35E5 Extension_0_97E9 Extension_0_505C Extension_0_9BDA Extension_0_50BF Extension_0_EE23 Centre Extension_0_3D14 Extension_0_9BA1 Extension_0_77E7 Extension_0_C9CC Extension_0_D243 Extension_0_3FFC Extension_0_34BD Extension_0_7E9E Extension_0_3CF5 Extension_0_6F19 Extension_0_EE8A Extension_0_A4BE Extension_0_8CD5 Extension_0_86B5 Extension_0_9868 Extension_0_BC7B Extension_0_7A76 Extension_0_146E Amreg Extension_0_8A33 Extension_0_D6C4 Extension_0_BB72 Extension_0_5FEC Extension_0_F23A Extension_0_3ABA Extension_0_90D9 Extension_0_DE5A Centre Extension_0_274D Extension_0_1156 Extension_0_D8BB Extension_0_AD3F Extension_0_495E Extension_0_4100 Extension_0_FCD3 Extension_0_B01E Extension_0_446A Extension_0_6566 Extension_0_F7E5 Extension_0_E42D Extension_0_C042 Extension_0_285C Extension_0_6CA8 Extension_0_7425 Extension_0_F007 Extension_0_E763 Extension_0_15ED Extension_0_0F25 Extension_0_19C7 Extension_0_89D3 Extension_0_AA7C Extension_0_7082 Extension_0_67FA Centre Extension_0_4F65 Extension_0_6ACA Extension_0_A41E Extension_0_BBCC Extension_0_1523 Extension_0_FCF5 Extension_0_293A Extension_0_0C83 Extension_0_0195 Extension_0_E40B Extension_0_67DB Extension_0_0A33 Extension_0_5331 Extension_0_EED3 Extension_0_3095 Extension_0_0DB3 Extension_0_9653 Extension_0_FCD5 Extension_0_65BF Extension_0_0753 Extension_0_A41C Extension_0_F7B7 Extension_0_FCCD Wait Extension_0_2E19 Extension_0_F72E Extension_0_8BA0 Extension_0_45CD Repeat Extension_0_9102 Extension_0_BB9F Extension_0_6CCF Extension_0_F466 Extension_0_647E Extension_0_042B Extension_0_1075 Extension_0_0176 Extension_0_83CB Extension_0_40FE Extension_0_E07C Extension_0_D21E Extension_0_D562 Extension_0_B3AD Extension_0_EBC0 Extension_0_D70F Extension_0_BE80 Extension_0_4D40 If Extension_0_D576 Extension_0_BF98 Extension_0_B154 Extension_0_870D Extension_0_CAEF Extension_0_7685 Extension_0_CF34 Extension_0_A267 Extension_0_B14D Pop Proc Extension_0_A99B Else Extension_0_6A66 Dir$ Extension_0_949F Extension_0_5AAD Extension_0_5D47 Extension_0_B2C0 Extension_0_26E9 Extension_0_DC85 Extension_0_DBCB Extension_0_4659 Extension_0_80BB Extension_0_C9CA Cls Extension_0_EC5D Locate Extension_0_3271 Extension_0_3909 Extension_0_849C Extension_0_CE44 Extension_0_2F25 Wait Extension_0_30AF Extension_0_88DB Extension_0_CCFD Extension_0_2E46 Extension_0_3F47 Extension_0_3685 Extension_0_0AD9 Extension_0_0223 Centre Extension_0_8136 Extension_0_C0A0 Extension_0_2CA9 Extension_0_3656 Extension_0_784E Extension_0_3444 Extension_0_616D Extension_0_EB22 Extension_0_DCA3 Extension_0_1132 Extension_0_7596 Extension_0_F13F Extension_0_B95B Extension_0_520D Extension_0_5105 Extension_0_A6F9 Extension_0_0122 Extension_0_5192 Extension_0_3C5D Extension_0_46F8 Extension_0_7AA5 Extension_0_E440 Extension_0_44DB Extension_0_65BE Extension_0_1170 Extension_0_8CC4 Extension_0_4C49 Centre Extension_0_65C1 Extension_0_172E Extension_0_DD96 Extension_0_232C Extension_0_52CE Extension_0_0A11 Extension_0_B5F8 Extension_0_EF20 Extension_0_658E Extension_0_0178 Extension_0_F5CE Extension_0_68B6 Extension_0_4143 Extension_0_9775 Extension_0_EF70 Extension_0_ACEB Extension_0_2269 Extension_0_7B57 Extension_0_D8F1 Repeat Extension_0_55B8 Extension_0_A910 Extension_0_2BB9 Extension_0_F445 Extension_0_F64A Extension_0_3213 Extension_0_7B69 Extension_0_D2F0 Extension_0_EB0E Extension_0_94FF Extension_0_4AD7 Extension_0_A71A Extension_0_9EE4 Extension_0_66F0 Extension_0_4D9B Extension_0_27D1 Extension_0_F53B Extension_0_9BEC If Extension_0_A6A9 Extension_0_7152 Extension_0_1AEB Extension_0_5927 Extension_0_05CC Extension_0_9F4B Extension_0_C28B Extension_0_23CE Extension_0_70AE ï¿½Bï¿½ï¿½Mï¿½ï¿½Mï¿½ï¿½ï¿½ï¿½ï¿½5ï¿½ï¿½ï¿½Oï¿½ï¿½K#Tï¿½ï¿½(ï¿½ï¿½Aï¿½Vï¿½5ï¿½$ï¿½ï¿½Úï¿½Eï¿½F ï¿½ï¿½ï¿½_ï¿½Vï¿½{Pï¿½ï¿½W# Centre Extension_0_9B06 Extension_0_4DB5 Extension_0_EBEF Extension_0_04C1 Extension_0_F935 Extension_0_1BDD Extension_0_7FAE Extension_0_C44F Extension_0_8C97 Extension_0_6B23 Extension_0_7413 Extension_0_FB80 Extension_0_28AC Extension_0_8212 Extension_0_41B9 Extension_0_5695 Extension_0_35BB Extension_0_2494 Extension_0_C811 Extension_0_DA98 Extension_0_9145 Extension_0_14B7 Extension_0_1E46 Extension_0_0ABC Extension_0_89EA Extension_0_5FC6 Print Extension_0_E77B Extension_0_70A5 Extension_0_9D57 Extension_0_0072 Extension_0_283E Extension_0_CC72 Extension_0_4FF7 Extension_0_CAB7 Extension_0_6494 Extension_0_F335 Extension_0_670E Extension_0_CDDE Extension_0_F356 Input Extension_0_68DD Extension_0_5CC3 Extension_0_063B Extension_0_152E Extension_0_FEEF Extension_0_2635 Extension_0_01C2 Extension_0_9C5F Extension_0_E78D Extension_0_3F38 Extension_0_8B41 Extension_0_192F Extension_0_B88B Extension_0_FC18 Extension_0_E260 Extension_0_9F77 Extension_0_D98B Extension_0_4739 Extension_0_966F Save Extension_0_3716 Extension_0_A78E Extension_0_4DC6 Extension_0_886A Extension_0_8B53 Extension_0_47FE Extension_0_BF20 Extension_0_1CF3 Extension_0_4922 Extension_0_94B9 Extension_0_C60B Extension_0_6539 Extension_0_518E Extension_0_B8C6 For Extension_0_EA57 Extension_0_94E7 Extension_0_58B4 Extension_0_D13E Extension_0_31C7 Extension_0_29EF Extension_0_15B9 Extension_0_9BD4 Extension_0_BC6F Extension_0_AD82 Extension_0_513E Extension_0_58AF Extension_0_3CF3 Repeat Extension_0_3714 Locate Extension_0_8BA0 Extension_0_45C5 Extension_0_235C Extension_0_31ED Extension_0_8B87 Extension_0_C457 Extension_0_6E34 Extension_0_570D Cline Extension_0_388D Print Extension_0_13D9 Extension_0_FA71 Extension_0_5877 Extension_0_67FC Extension_0_A135 Extension_0_B3BE Extension_0_17B0 Extension_0_425C Extension_0_087A Extension_0_E167 Extension_0_BC60 Extension_0_0F07 Extension_0_CC40 Default Palette Extension_0_8594 Extension_0_4E76 Extension_0_2324 Extension_0_7394 Extension_0_D64A Extension_0_4C63 Extension_0_A272 Extension_0_D12D Extension_0_DD5D Extension_0_5C45 Extension_0_9672 Extension_0_B512 Extension_0_9188 Extension_0_7D20 Extension_0_09DE Until Extension_0_8AA9 Extension_0_BDDC Extension_0_E35A =< Extension_0_0BCD Extension_0_7B26 Extension_0_0E69 Extension_0_7EA5 Extension_0_40B9 Extension_0_A042 Extension_0_D06B Extension_0_F830 ï¿½Cï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½WBW,ï¿½:7ï¿½Gï¿½Fï¿½[×½ï¿½ï¿½ï¿½WF>ï¿½ï¿½Yï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½ï¿½`U2X{AK5ï¿½C$ Next Extension_0_A15B Extension_0_D7BD Extension_0_FBB9 Extension_0_9257 Extension_0_663E Cls Extension_0_B559 Extension_0_FECB Extension_0_F4FF Open Out Extension_0_FADC Extension_0_06DF Extension_0_06A9 Extension_0_8110 Extension_0_C1A0 Extension_0_6055 Extension_0_3278 Extension_0_7B41 Extension_0_6B35 Extension_0_CE1B Extension_0_6306 Extension_0_1FF5 Extension_0_6D25 Extension_0_F0E1 Extension_0_4271 For Extension_0_1393 Extension_0_8847 Extension_0_5E1C Extension_0_C016 Extension_0_2CDB Extension_0_EFB3 Extension_0_7443 Extension_0_B661 Extension_0_5584 Extension_0_2AB6 Extension_0_1344 Extension_0_37D4 Extension_0_9D73 Print # Extension_0_4F96 Extension_0_215C Extension_0_1197 Extension_0_7793 Extension_0_3C20 Extension_0_E1EC Extension_0_8B4B Extension_0_4FE6 Extension_0_F842 Extension_0_CE17 Extension_0_E736 Extension_0_8C74 Extension_0_C47C Extension_0_8D22 Extension_0_F1EF Extension_0_F9D8 Next Extension_0_7DBA Extension_0_BFDE Extension_0_DEFB Extension_0_83BC Extension_0_713E Close Extension_0_B8A5 End If Extension_0_5CF3 Cls Extension_0_2A28 #ï¿½Pï¿½ï¿½Ýï¿½ï¿½QJ.ï¿½Kï¿½ï¿½ï¿½/ï¿½Ï¬ï¿½ï¿½A-QÍï¿½\ï¿½SI:ï¿½%FSï¿½|Wï¿½BCGRï¿½ï¿½*<ï¿½ï¿½ï¿½ï¿½T?ï¿½` ADï¿½|ï¿½U]ï¿½%^ï¿½ï¿½&D$ Erase Extension_0_335D Prg Under Extension_0_9CB9 Extension_0_C65C Load Extension_0_E534 Extension_0_F383 Extension_0_E9DE Screen Copy Extension_0_89D5 Open In Extension_0_CCC5 Extension_0_E3BC Extension_0_733F Extension_0_A8F9 Extension_0_6CF5 Extension_0_3A36 Text Length Extension_0_C99E Extension_0_BC05 Extension_0_E17B Extension_0_F3B4 Extension_0_E7CE Extension_0_9E33 Extension_0_213E Extension_0_A90D For Extension_0_57F9 Extension_0_3F6E Extension_0_889F Extension_0_B4C8 Extension_0_82DE Extension_0_3390 Extension_0_AB57 Extension_0_D4FD Extension_0_FE62 Extension_0_0D2B Extension_0_0A8D Extension_0_0741 Extension_0_01AE Input # Extension_0_030D Extension_0_83E8 Extension_0_404D Extension_0_6072 Extension_0_3013 Extension_0_77F2 Extension_0_407E Extension_0_D567 Extension_0_B301 Extension_0_FBF5 Extension_0_4C47 Extension_0_A66D Extension_0_F113 Extension_0_0788 Extension_0_14B8 Extension_0_7B9E Next Extension_0_8D55 Extension_0_47B4 Extension_0_A154 Extension_0_9E9A Extension_0_E84D Close Extension_0_1467 End If Extension_0_1AF4 End If Extension_0_9F1A End Proc Extension_0_DE7F Procedure SNATCH Cls Locate ,10 Centre "Please Wait" Load Iff "df0:blank.iff",1 : Screen To Back T=30 : B=93 For N=1 To 5 Read L Read R Get Bob N,L,T To R,B Cls 0,L,T To R,B Next N Restore T=116 : B=179 For N=1 To 5 Read L Read R Get Bob N+5,L,T To R,B Cls 0,L,T To R,B Next N Data 3,50,60,107,118,-2147467099 Extension_0_205C Extension_0_303E Extension_0_F800 Extension_0_1CB1 Until Extension_0_033E Extension_0_0780 Extension_0_8120 Extension_0_40BC Extension_0_200E Extension_0_7038 Extension_0_18EE Extension_0_0C5E Extension_0_063F Extension_0_0101 Extension_0_3E9A Extension_0_00C0 Save Iff 0>BJAOK)IFF$ Screen Close 1 Screen Extension_0_803E Extension_0_C000 Extension_0_2000 Extension_0_F000 Cls Extension_0_1800 Dir$ Extension_0_F3A2 Extension_0_0226 Extension_0_010B Extension_0_44C6 Extension_0_B07A Extension_0_294D Extension_0_0157 Extension_0_757B Extension_0_271C Extension_0_0402 End Proc Extension_0_0601 Procedure SPEED Locate ,1 Centre " " : Print Centre " Set thinking time from 1 to 9 " : Print Centre " 1 = little.....9 = lots " : Print Centre " " : Print Repeat A$=Inkey$ Until(A$<>"") and(A$>"0") and(A$<":") TL=(Val(A$)*100)/2 For N=1 To 5 Paste Icon(N*64)-63,1,2 Sam Play 15,4,8000+(N*1000) Wait 3 Next N End Proc